Partial Public Class FrmCertificacionUnidadABM
    Inherits System.Web.UI.Page
    Private tblEnteC As CapaDeNegocios.nTblEnteC = New CapaDeNegocios.nTblEnteC
    Private TblUnidad As CapaDeNegocios.nUnidad = New CapaDeNegocios.nUnidad
    Private TblCertificacionUnidad As CapaDeNegocios.nCertificacionUnidad = New CapaDeNegocios.nCertificacionUnidad

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            Llenar_Grid()
            llenarCboEnteC()
            llenarCboUnidad()
        End If
    End Sub

    Protected Sub Llenar_Grid()
        Me.GVCertificacion.DataSource = TblCertificacionUnidad.Buscar(0, 0, New Date(), "", "", New Date(), "", 0, 0)
        Me.GVCertificacion.DataBind()
    End Sub

    Sub llenarCboEnteC()
        CboEnte.DataSource = tblEnteC.Buscar("", "", "", "", "", "", "")
        CboEnte.DataTextField = "RazonSocial"
        CboEnte.DataValueField = "codigoEnte"
        CboEnte.DataBind()
    End Sub

    Sub llenarCboUnidad()
        CboUnidad.DataSource = TblUnidad.Buscar(0, 0, "", "", 0, "", "", New Date(), New Date(), 0, 0)
        CboUnidad.DataTextField = "Dominio"
        CboUnidad.DataValueField = "CodigoUnidad"
        CboUnidad.DataBind()
    End Sub
    Sub LimpiarCampos()
        TxtNumero.Text = ""
        TxtDescripcion.Text = ""
        Me.DPFechaInspeccion.SelectedValue = DBNull.Value
        Me.DPFechaVencimiento.SelectedValue = DBNull.Value
        TxtObservaciones.Text = ""
        HFCertificacionUnidad.Value = ""
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkGuardar.Click
        If IsNumeric(TxtNumero.Text) Then
            If TxtNumero.Text = "" Then TxtNumero.Text = 0
            Dim FechaInspeccion As Date = New Date()
            Dim Vencimiento As Date = New Date()
            FechaInspeccion = Me.DPFechaInspeccion.SelectedValue
            Vencimiento = Me.DPFechaVencimiento.SelectedValue
            If HFCertificacionUnidad.Value = "" Then
                TblCertificacionUnidad.Insertar(Convert.ToInt32(TxtNumero.Text), FechaInspeccion, TxtDescripcion.Text, CboEstado.SelectedValue, Vencimiento, TxtObservaciones.Text, Convert.ToInt32(CboUnidad.SelectedValue), Convert.ToInt32(CboEnte.SelectedValue))
            Else
                TblCertificacionUnidad.Modificar(Convert.ToInt32(HFCertificacionUnidad.Value), Convert.ToInt32(TxtNumero.Text), FechaInspeccion, TxtDescripcion.Text, CboEstado.SelectedValue, Vencimiento, TxtObservaciones.Text, Convert.ToInt32(CboUnidad.SelectedValue), Convert.ToInt32(CboEnte.SelectedValue))
            End If
        End If
        Llenar_Grid()
    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkEliminar.Click
        If HFCertificacionUnidad.Value <> "" Then
            TblCertificacionUnidad.Eliminar(Convert.ToInt32(HFCertificacionUnidad.Value))
            Llenar_Grid()
        End If
    End Sub

    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkBuscar.Click
        If TxtNumero.Text = "" Then TxtNumero.Text = 0
        Dim CertificacionUnidad As Integer = 0
        If HFCertificacionUnidad.Value <> "" Then CertificacionUnidad = Convert.ToInt32(HFCertificacionUnidad.Value)
        Dim FechaInspeccion As Date = New Date()
        Dim Vencimiento As Date = New Date()
        FechaInspeccion = Me.DPFechaInspeccion.SelectedValue
        Vencimiento = Me.DPFechaVencimiento.SelectedValue
        
        GVCertificacion.DataSource = TblCertificacionUnidad.Buscar(CertificacionUnidad, Convert.ToInt32(TxtNumero.Text), FechaInspeccion, TxtDescripcion.Text, CboEstado.SelectedValue, Vencimiento, TxtObservaciones.Text, Convert.ToInt32(CboUnidad.SelectedValue), Convert.ToInt32(CboEnte.SelectedValue))
        GVCertificacion.DataBind()
    End Sub

    Protected Sub GVCertificacion_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GVCertificacion.RowCommand
        If e.CommandName = "Select" Then
            HFCertificacionUnidad.Value = e.CommandSource.Parent.FindControl("HFcodigoCertificacion").value
            TxtNumero.Text = e.CommandSource.Parent.Parent.FindControl("lblnumerocertificacion").text
            TxtDescripcion.Text = e.CommandSource.Parent.Parent.FindControl("lblDescripcion").text
            Me.DPFechaInspeccion.SelectedValue = e.CommandSource.Parent.Parent.FindControl("lblFechaInspeccion").text
            Me.DPFechaVencimiento.SelectedValue = e.CommandSource.Parent.Parent.FindControl("lblVencimiento").text
            TxtObservaciones.Text = e.CommandSource.Parent.Parent.FindControl("lblObservacion").text
            CboEnte.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFcodigoEnte").value
            CboUnidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFcodigoUnidad").value
            CboEstado.SelectedValue = e.CommandSource.Parent.Parent.FindControl("lblEstado").text
        End If
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkCancelar.Click
        HFCertificacionUnidad.Value = ""
        LimpiarCampos()
        Llenar_Grid()
    End Sub
End Class